home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / DEC.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.4 KB  |  18 lines
  1.  
  2. *DECREMENT THE ACCUMULATOR, AN AUXILIARY                                        
  3. *REGISTER, OR MEMORY                                                            
  4. *                                                                               
  5. DEC    $MACRO A,B      DECREMENT                                                
  6.        $IF  A.L=0                                                               
  7.        $IF  B.L=0                                                               
  8.        SUB  ONE,0      DECREMENT AC                                             
  9.        $ELSE                                                                    
  10.        LARP :B:        LOAD ARP WITH :B:                                        
  11.        MAR  *-         DECREMENT                                                
  12.        $ENDIF                                                                   
  13.        $ELSE                                                                    
  14.        LAC  :A:,0      LOAD :A:                                                 
  15.        SUB  ONE,0      DECREMENT                                                
  16.        SACL :A:,0      SAVE :A:                                                 
  17.        $ENDIF                                                                   
  18.        $END